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CHAPTER 1; TAKING DETOURS 

INFORMATION 

Lines 100 and 110 in the program below are 
called a subroutine . A subroutine is a set 
of commands within a program. GOSUB tells 
the computer to GO to the SUBroutine. GOSUB 
must be followed by a line number. 


The command RETURN must be at the end of a 
subroutine. RETURN sends the computer back 


to the line following the GOSUB command, 
which in this case is line 50. 

ENTER/RUN/OBSERVE 

*********************************************** 
I 10 GR.0 I 

I 20 FOR X=1 TO 10 I 

J 30 PRINT X J 

* 40 GOSUB 100 * * 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

^ a. a. jw 0. w xxxM ^ 

•k k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


* 50 NEXT X 
*60 END 

*100 FOR T=1 TO 500:NEXT T 
*110 RETURN 
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CHANGE IT/RUN/OBSERVE 

To see the difference the subroutine makes, 
delete line 40 and run the progreim again. 

CHANGE IT/RUN/OBSERVE 

Now put line 40 back into the program, and 
delete line 110. No error message appears, 
but the program does not RETURN from the 
subroutine. 

CHANGE IT/RUN/OBSERVE 

Put line 110 back and this time, delete line 
60. This will cause the computer to find an 
extra RETURN command. RUN the program and 
notice the error message, "ERROR - 16 AT LINE 
110". ERROR - 16 means the computer found an 
extra RETURN command. GOSUB and RETURN must 
be used in pairs like FOR and NEXT. 

CHANGE IT/RUN/OBSERVE 

Adjust your program so that it looks like this: 

*********************************************** 

I 10 GR.0 I 

* * 

* 20 FOR X=1 TO 10 J 

(program continued) 
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* 

* 

* 

* 

* 

ic 

ic 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

•k 

* 


30 PRINT X 
40 GOSUB 100 
50 NEXT X 
60 GOTO 120 

100 FOR T=1 TO 500-.NEXT T 
110 RETURN 
120 END 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


******* 



Lines 60 and 120 show another way to END 


your program. 


CHANGE IT/RUN/OBSERVE 


This will also work, but you will have to 


break the program later. 

*********************************************** 

I 60 GOTO 60 t 


Clear the program from the computer's memory. 


ENTER/RUN/OBSERVE 


*********************************************** 

* 10 GR.0:DIM S$ (10) t 

* i 

* 20 PRINT; PRINT: PRINT-.PRINT J 

k k 

t 30 PRINT "YOU ARE ABOUT TO TAKE THE SMITH * 

t QUIZ." I 

J 40 PRINT:GOSUB 1000 t 

* * 

* (program continued) * 
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50 PRINT "EACH QUESTION MUST BE ANSWERED 
WITH A FIVE-LETTER NAME BEGINNING WITH 
S. " 

60 GOSUB 1000 
70 GR.0 

80 PRINT "1.) A MAN WHO SHOES HORSES IS 
CALLED A BLACK 


WAS A FAMOUS 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

I1000 REM *** TIME DELAY SUBROUTINE 
*1010 FOR T=1 TO 1000:NEXT T 
*1020 RETURN 

*2000 REM *** ANSWER SUBROUTINE *** 
*2010 GR.0:PRINT 


90 INPUT S$ 

100 GOSUB 2000 

110 PRINT "2.) ADAM 
SCOTTISH ECONOMIST." 

120 INPUT S$:GOSUB 2000 

130 PRINT "3.) JOSEPH 
OF THE MORMON CHURCH." 

140 INPUT S$:GOSUB 2000 

150 PRINT "4.) LOCATED IN WASHINGTON D.C., 
THE SONIAN INSTITUTION IS A WORLD- 

FAMOUS MUSEUM." 

160 INPUT S$-.GOSUB 2000 

170 PRINT "5.) A VIRGINIA COLONIST WAS 
NAMED JOHN 

180 INPUT S$:GOSUB 2000 

190 PRINT "THAT'S IT! THE QUIZ IS OVER!" 

200 PRINTrPRINT "YOU ANSWERED ";C;" OUT OF 
5 CORRECTLY." 


210 END 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

WAS THE FOUNDER* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
•k 
•k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 


kkk 


(program continued) 
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*2020 IF S$<>"SMITH" THEN PRINT "HOPE! THE * 
*ANSWER IS SMITH.":GOTO 2050 J 

*2030 PRINT "RIGHT! YOU ARE SO CLEVER." * 

*2040 C=C+1 t 


* 

* 

* 

* 

* 

* 

* 

* 


*2050 GOSUB 1000 

*2060 GR.0 
* 



CHANGE IT/RUN/OBSERVE 

Add extra spaces in those PRINT lines that 
need it to prevent a word being divided into 
two parts. 

Notice, you can go to a subroutine from any¬ 
where in a program. Also, you can have sub¬ 
routines nested inside one another, in the 
same way that you did with FOR-NEXT commands. 
For example, in the answer subroutine, the 
computer branches to the time delay routine. 
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CHANGE IT/RUN/OBSERVE 
Make these changes. 


**********************************************J 


1 

GOSUB 

2000 

TV 

* 

* 

ic 

1 100 



* 

* 

•k 

* 120 

GOSUB 

2000 

k 

k 

k 

* 140 

GOSUB 

2000 

k 

k 

k 

* 160 

GOSUB 

2000 

k 

k 

k 

I 180 

GOSUB 

2000 

k 

k 

k 

*2010 

PRINT 

:INPUT S$ 

k 

k 

k 


7C ^ 

*********************************************** 


CHALLENGE 

Change the above program so that two time 
delays are used, one so the instructions can 
be read, and a shorter one in the 2000 sub¬ 
routine. 
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INFORMATION 

GOSUB can also be used with graphics. 
ENTER/RUN/OBSERVE 

*********************************************** 
* * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


10 GR.5 
20 COLOR 1 

30 FOR N=0 TO 79 STEP 2 
40 GOSUB 100 
50 NEXT N 
60 END 

100 PLOT 0,38 
110 DRAWTO N,0 


* 

* 

* 

* 


120 RETURN 


********************************************** 


CHANGE IT/RUN/OBSERVE 

Change line 20. Select a different color. 

CHANGE IT/RUN/OBSERVE 
Make this change. 

*********************************************** 
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GRAPHICS 6 is a higher resolution graphics 
mode. Notice how the design only went half-way 
across and half-way down the screen? In GRAPHICS 
6, the dimensions of the screen are 160 locations 
across by 80 locations down. 

CHANGE IT/RUN/OBSERVE 

*********************************************** 

* 30 FOR N=0 TO 159 STEP 3 * 

fl00 PLOT 0,79 I 

* * 
*******:Hr************ ********* ****************^* 

Change the color command in line 20 to 2 
and RUN the program. 

You cannot see the design because it's printing 
in black. The two colors in GRAPHICS 6 are 
black and either red or green depending on 
the setting of your monitor. Change line 20 
back to COLOR 1. 

CHANGE IT/RUN/OBSERVE 

Change the size of the STEP. 

*********************************************** 

I 30 FOR N=0 TO 159 STEP 5 % 

* * 
*********************************************** 
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CHANGE IT/RUN/OBSERVE 

Add these lines so the design fills the entire 


screen. 


*********************************************** 
I 60 N=159 

I 70 FOR S=0 TO 79 STEP 2 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

*110 DRAWTO N,S t 

*********************************************** 


* 

I 80 GOSUB 100 

* 90 NEXT S 

* 99 END 


CHANGE IT/RUN/OBSERVE 


*********************************************** 

*110 DRAWTO N,10 * 

*********************************************** 


CHANGE IT/RUN/OBSERVE 

**********************************************^ 

*110 DRAWTO N,N/2 t 

"k ^ 

*********************************************** 

CHANGE IT/RUN/OBSERVE 

*********************************************** 

*100 PLOT 79,79 t 

*********************************************** 
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CHANGE IT/RUN/OBSERVE 


*********************************************** 
*100 PLOT 79,0 t 

*********************************************** 


CHALLENGE 


Create a program that will cause a two-color 


object to move horizontally across the screen. 


CHALLENGE 

Change the above program to make the object 
move diagonally across the screen. 


ENTER/RUN/OBSERVE 

Clear the memory and try this. 


10 

20 


40 


*********************************************** 

* ' FOR C=1 TO 3 * 

* 

GR.5 * 

* 

30 FOR N=0 TO 79 STEP 3 * 

COLOR C J 

50 GOSUB 100 * 

60 NEXT N J 

70 NEXT C t 

* 

80 END J 

*100 PLOT 39,0 t 

*110 DRAWTO N,N/2 * 


*120 RETURN t 

**********************************************^ 
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CHANGE IT/RUN/OBSERVE 


Try this! 


*********************************************** 

I 10 I 

-k i 

* 35 C=C+1 t 

* . * 

* { 

*********************************************** 


CHANGE IT/RUN/OBSERVE 
Add these lines. 

*********************************************** 
*112 PLOT 39,39 t 

*114 DRAWTO N,N/2 J 

* * 

iciddffcickk'kkic'kkkickkk'kk'k'k'k'k'kkickic'k’kic'k'k'kic'k'kic'k'k'kkkickk 

CHANGE IT/RUN/OBSERVE 

This time change to STEP 1. 

CHALLENGE 

Create a graphic design of your own. Use four 
colors. 
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ENTER/RUN/OBSERVE 
Try this one. 


**************************************** 

* 


10 

GRAPHICS 5 


20 

FOR V=1 TO 100 


30 

GOSUB 100 


40 

GOSUB 300 


50 

GOSUB 200 


70 

NEXT V 


80 

END 


100 

REM ***RANDOMLY 

PICK LOCATIONS*** 

110 

X=79*RND(0) 


120 

Y=39*RND(0) 


130 

XP=79*RND(0) 


140 

YP=39*RND(0) 


150 

RETURN 


200 

REM ***DRAWTO & 

PLOT*** 

210 

COLOR C 


220 

PLOT X,Y 


230 

DRAWTO XP,YP 


250 

RETURN 


300 

REM ***RANDOMLY 

PICK COLOR*** 

310 

C=C+1 


320 

RETURN 


400 

REM ***RANDOMLY 

REMOVE SPOTS*** 

410 

FOR T=1 TO 10 


420 

COLOR 0 


430 

PLOT X,Y 



******* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

t 


(program continued) 
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* 
* 
* 
* 
* 
rk 

*460 RETURN t 

*********************************************** 


*440 GOSUB 100 

*450 NEXT T 
* 


CHALLENGE 


Make whatever changes are necessary to pick 
values of X and Y anywhere on the screen in 
GRAPHICS 6. 
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REVIEW: Choose the command or key which 

will cause the function 
described below. 


COMMAND/KEY FUNCTION 



This command sends the computer to 

the first line of a subroutine. 

The command must be followed by a 

line number. 


Located at the end of a subroutine, 

this command sends the computer 
back to the program line following 

GOSUB. 


This command puts the computer in 
a high-resolution graphics mode. 
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CHAPTER 2; MORE DECISIONS 
INFORMATION 

Often a decision needs to be made that has 
more than two choices. When the choices 
can be represented by numbers, ON-GOTO can 
be used. 


ENTER/RUN/OBSERVE 


********************************************* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*100 PRINT 
*110 PRINT 
*120 PRINT 
*130 PRINT 
*140 A=A+1 

*150 IF A=6 THEN END 

*160 GOTO 30 
* 


10 GR.0 
20 A=1 
30 PRINT A 
40 IF A=1 THEN 90 

50 IF A=2 THEN 100 

60 IF A=3 THEN 110 

70 IF A=4 THEN 120 

80 IF A=5 THEN 130 

90 PRINT " ONE":GOTO 140 
" TWO":GOTO 140 
" THREE":GOTO 140 
" FOUR":GOTO 140 
" FIVE" 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


********************************************* 

The IF-THEN lines 40 through 80 above can all 
be replaced with one ON-GOTO command. 
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CHANGE IT/RUN/OBSERVE 

Delete lines 40, 50, 60, 70, and 80. 

Now add a new line 40. 

******************************************** 

* 40 ON A GOTO 90,100,110,120,130 * 

* * 
******************************************** 

RUN again. 

INFORMATION 

Between the ON and GOTO, you must have either 
a variable or a mathematical expression that 
represents a number. The line numbers after 
GOTO tell the computer where to go. When the 
value of the variable is 1, the computer 
branches to the first line number listed. If 
the value is four, the computer will branch 
to the fourth number listed. 

CHANGE IT/RUN/OBSERVE 

•k'kic'kic’kic-k’k'kic-k-k'k-kicic'k'k-k'k’kieii'kie'k'k'kic'k'k'k'kic'kic'k'k'kicicic-k’k'k'k 

I 20 A=0 * 

* * 
*********************************************** 
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Whenever the value is zero or greater than the 
number of line numbers to branch to, the com¬ 
puter just ignores the ON-GOTO command and 
goes on to the next line. Add; 

*********:Sr************************************ 

* 50 PRINT "ZAP" I 

********************************************** 

ZAP will only be printed when the computer 
does not branch to any of the lines listed in 
ON-GOTO. 

CHANGE IT/RUN/OBSERVE 

**********************************:*?*********** 

* 20 A=.7 * 

* * 
ic'k'k’kick-k'k'k'kicicicic-k'k'k'kic'k'k'k’kic-k'kic'k-k'k'k'k-k'k’kic'ic'kicic'kic'kicicic 

When the expression is a decimal number, the 
ON-GOTO turns it into an integer by correctly 
rounding the part to the right of the decimal 
point. Therefore, A=.7 is the same as A=l. 

It will branch to the first line number listed. 
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ENTER/RUN/OBSERVE 


1 TO 4 " 


:'k'kic’kic-k'kici('k’k'k'k'k’k‘k'k'kic'k'kie'kic'k'kicic-k'k-k'k-k'k-kic'k-kic-k‘k'k’k-k'k-k 

ic 
* 
* 
* 
* 
* 

FTSTANDING" | 

•k 

:D by THE" * 

* 

>L." I 

SER FROM " I 

* 
* 
* 
* 

lND your" I 

* 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
* 

:ecutive" I 

* 

FCE, OFFICE!" * 

' k 

k 
k 
k 

iRE OFF TO" * 

* 

lY THE " I 

* 

' PENGUINS!" * 

* 
* 
* 
* 

: BEING IN" * 

’ARTIES IN" I 

* 
* 
* 
k 
k 
k 
k 

fEEDS A " I 

* 


* 

* 

* 

5 

k 

k 

k 

10 

k 

k 

k 

20 

k 

k 

k 

25 

k 

k 

k 

28 

k 

k 

k 

30 

k 

k 

k 

32 

k 

k 

k 

34 

k 

k 

k 

36 

k 

k 

k 

40 

k 

k 

k 

50 

k 

k 

k 

55 

k 

k 

k 

60 

k 

k 

k 

65 

k 

k 

k 

70 

t 

k 

72 

k 

k 

k 

74 

k 

k 

k 

76 

k 

k 

k 

90 

k 

k 

k 

92 

k 

k 

k 

94 

k 

k 

k 

96 

k 

k 

k 

110 

k 

k 

k 

115 

k 

k 

k 

120 

k 

k 

125 

k 

k 

k 

130 


NEW YORK?" 


(program continued) 
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* 132 PRINT "NEW PERSON TO PRODUCE ROBOTS." 

* GOTO 500 

I 500 FOR T=1 TO 1000:NEXT T 
I 510 PRINT 
I 550 PRINT 

I 555 PRINT "WANT TO GO AGAIN (Y/N)? " 

I 558 INPUT A$ 

I 560 IF A$="Y" THEN GOTO 10 
I 580 END 

I 600 PRINT "IF YOU CAN'T FOLLOW SIMPLE" 

I 610 PRINT "INSTRUCTIONS, YOU'RE FIRED!" 
******************************************* 


• * 

• * 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* * * * 


Note how lines 50 and 55 eliminate the problem 
of having an undesirable response for A. 

Delete lines 50 and 55 and notice how the pro¬ 
gram will run if you enter a 0 or a 5. 

Lines 50 and 55 can be combined into one line 
to save programming time! 

CHANGE IT/RUN/OBSERVE 

*********************************************** 

I 50 IF A< 1 OR A >4 THEN 600 * 

* * 
*********************************************** 

This checks the value of the variable before 
using ON-GOTO in case an incorrect response is 
given. 
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The command OR is used with IF-THEN state¬ 
ments. Notice that the variable must be 
repeated. The program will now branch to line 
600 if the variable A is either less than 1 or 
greater than 4. 

CHALLENGE 

Create a program that will display a colored 
Christmas graphic. Use lines 2000 to 2999. 

Create a colored Thanksgiving graphic. Use 
lines 4000 to 4999. 

Do the same for the Fourth of July using lines 
6000 to 6999. 

Then add instructions to your program so 
someone can select which graphic to see. 

Use ON-GOTO. 
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INFORMATION 

ON-GOSUB is the same as ON-GOTO except that 
the line numbers listed after ON-GOSUB are 
all the first lines of subroutines. 

ENTER/RUN/OBSERVE 

*********************************************** 


10 GR.0 

15 PRINT:PRINT:DIM N${20) 

20 PRINT "WHAT IS YOUR NAME?"; 
25 INPUT N$ 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 30 PRINT-.PRINT "WHAT DELAY WOULD YOU LIKE?" * 

★ ^ 

*40 PRINT "l=SLOW, 2=MEDIUM, AND 3=FAST" 

* 

* 50 PRINT "ENTER 1, 2, OR 3";:INPUT S 


* 

I 55 IF S<1 OR S>3 THEN 50 

* 60 ON S GOSUB 100,120,140 

* 70 FOR H=1 TO 5 


80 PRINT N$; 
85 NEXT H 
90 GOTO 30 


/ 


*100 FOR T=1 TO 1000:NEXT T 
*110 RETURN 


•k 

*120 FOR T=1 TO 200:NEXT T 
*130 RETURN 

*140 FOR T=1 TO 20:NEXT T 
*150 RETURN 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

RUN this program several times. 

Notice the OR in line 55. 
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CHANGE IT/RUN/OBSERVE 

'k'k'k'kic-kic'k-k'k'k'kic'k-kic'kicic’kicic'k'k'k’k'kicicic'kic-k-k'k'k-k’k'k'k'kicicicic'k’k 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
•k 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 

k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k k 


CHALLENGE 

Can you change the above program so that no 
two adjacent plots have the same color? 


1 

ON S GOSUB 

100,200,300 

ii00 

REM ***SLOW*** 

*110 

FOR X=1 TO 

39 STEP 2 

k 

*115 

FOR T=1 TO 

1000:NEXT T 

*120 

COLOR 2 


*130 

PLOT X,6 


*140 

NEXT X 


I 200 

REM ***MEDIUM*** 

*210 

FOR X=1 TO 

39 

*215 

FOR T=1 TO 

200:NEXT T 

*220 

COLOR 3 


*230 

PLOT X,8 


*240 

NEXT X 


*250 

RETURN 


|300 

REM ***FAST 

kk k 

*310 

FOR X=1 TO 

39 

*320 

COLOR 4 


*330 

PLOT X,10 


*340 

NEXT X 


*350 

RETURN 
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ENTER/RUN/OBSERVE 

Here is an example of the kinds of programs 

you can create using both ON-GOSUB and ON-GOTO. 
*********************************************** 


10 GR.0: PRINT-.PRINT: DIM S$ (40) :DIM A$ (40) : 
DIM V$(40) 

20 PRINT "THIS IS A QUIZ ON CAPITALS." 

30 PRINT:PRINT "DO YOU WANT CAPITALS FOR A 
STATE (1) OR A COUNTRY (2)?" 


40 PRINT "ENTER 1 OR 2 ";:INPUT N 
50 ON N GOSUB 70,200 
60 GOTO 40 

70 REM *** STATE CAPITALS 
I 80 GR.0 

THEN S=1 


*** 


* 

I 90 S=S+1:IF S=4 
*100 ON S GOTO 110,140,170 

*110 PRINT "WHAT IS THE CAPITAL OF TEXAS?"; 
*INPUT S$ 

*120 A$="AUSTIN" 

*130 GOTO 360 

*140 PRINT 
♦INPUT S$ 

*150 A$="AUGUSTA" 

* 


"WHAT IS THE CAPITAL OF MAINE?";: 


*160 GOTO 360 

*170 PRINT "WHAT IS THE CAPITAL OF MONTANA?";:* 

♦INPUT S$ J 

*180 A$="HELENA" J 

* 
* 
* 
* 

REM *** COUNTRY CAPITALS *** * 

*210 GR.0 I 


* 

*190 GOTO 360 

*200 


(program continued) 
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220 C=C+1;IF C=4 THEN C=1 
230 ON C GOTO 240,270,300 

240 PRINT "WHAT IS THE CAPITAL OF CANADA?";: 
INPUT S$ 

250 A$="OTTAWA" 

260 GOTO 360 

270 PRINT "WHAT IS THE CAPITAL OF CHINA?";; 
INPUT S$ 

280 A$="PEKING" 

290 GOTO 360 

300 PRINT "WHAT IS THE CAPITAL OF ISRAEL?";: 
INPUT S$ 

310 A$="JERUSALEM" 

320 GOTO 360 

360 REM ***ANSWERS*** 

370 PRINT:PRINT 

380 IF S$<>A$ THEN PRINT "NOPE! ";A$;" IS 
THE CORRECT ANSWER.":GOTO 410 

390 PRINT "RIGHT!!!" 

410 PRINT:PRINT 

420 PRINT "DO YOU WANT TO GO AGAIN (Y/N) ";; 

INPUT V$ 

430 IF V$="Y" THEN GR.0;GOTO 30 
********************************************* 
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When you run this program, try the states and 
countries at least three times each. 

DO NOT ERASE THIS PROGRAM !!! 

CHALLENGE 

Add two state capitals and two country capitals 
to the last program. RUN the new program to 
be sure it works. SAVE the program. Call it 
QUIZ. 
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REVIEW: Choose the command or key which 

will cause the function described 
below. 


COMMAND/KEY FUNCTION 



This command sends the computer 

to one of several line numbers, 

depending on the value of the 

expression in the command. 


This will send the computer to 

one of several subroutines, de¬ 
pending on the value of the 

expression in the command. 


This command is used with the 

IF-THEN statement to check for 

a variety of responses. 
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CHAPTER 3: PUTTING CHARACTERS IN THEIR PLACE 

INFORMATION 

POSITION X,Y moves the cursor to any location 
on the screen. X is the horizontal position 
(value from 0 to 39) and Y is the vertical 
position (value from 0 to 23). The values 
must be separated by a comma. 


ENTER/RUN/OBSERVE 

*********************************************** 
I 10 GR.0 * 


* 

* 20 PRINT "APPLE" 

I 30 POSITION 5,2;PRINT "PEAR" 

I 40 POSITION 10,3:PRINT "ORANGE" 

I 50 POSITION 15,4:PRINT "BANANA" 

* 


*********************************************** 


ENTER/RUN/OBSERVE 


*********************************************** 


*10 GRAPHICS 0 

I 20 PRINT "INPUT X,Y";:INPUT X,Y 

* 30 POSITION X,Y;PRINT 
I 40 POSITION 0,0 

*45 PRINT " 

* 50 POSITION 0,0 

I 60 GOTO 20 

* 


* 

ic 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*********************************************** 
Try lots of different X and Y values to see 
how POSITION X,Y works. 


Creative Learning Association 
Charleston, IL 61920 












- 28 - 


CHANGE IT/RUN/OBSERVE 


********************************************* 

* 20 X=INT(RND{1)*37)+l * 

I 25 Y=INT(RND(1)*23)+1 * 

* 40 GOTO 20 * 

* * 
********************************************* 


CHALLENGE 

Program your computer to create this display 
on the screen. 


DAY 

EACH 

UPWARD 

STEP 

ONE 

CLIMBING 

IS 

SUCCESS 
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ANOTHER CHALLENGE 

Create a program using a FOR-NEXT loop that 
will cause the word HOPE to start near the 
bottom left of the screen and be printed 
repeatedly diagonally to the top right of the 
screen. Use a time delay so it doesn't move 
too quickly. 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 

HOPE 
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INFORMATION 

When an error message appears, the program 
usually stops and the computer returns to 
READY. The command TRAP can be used to 
prevent this. It must be placed in your 
program before the error occurs. 


ENTER/RUN/OBSERVE 


********************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*100 PRINT "THE LARGEST ACCEPTED VALUE WAS 
*X-1;"." 


10 TRAP 100 
20 GR.0 

30 POSITION X,12 
40 PRINT "*" 

50 POSITION 20,18 
60 PRINT X 

70 FOR T=1 TO 200:NEXT T 
80 X=X+1 
90 GOTO 20 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


********************************************** 


Notice that when the value of X got too large, 
an error occurred which sent the program to 
line 100. 
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CHANGE IT/RUN/OBSERVE 

********************************************** 

* 5 FOR C=1 TO 3 t 

* ^ 

*120 NEXT C t 

********************************************** 


Notice that the error TRAP did not work the 
second time. Like a mouse TRAP, once sprung, 
it must be reset. 


CHANGE IT/RUN/OBSERVE 

To reset the TRAP, try this: 

********************************************** 
*110 TRAP 50000 t 

********************************************** 

The number used to reset TRAP must be between 

32767 and 65535. 


CHALLENGE 

Change the above program to GR.5 and find the 
largest value of X that may be used. 
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Try the following values: 

253 - might be useful?! 

97 

98 
38 

123 

CHALLENGE 

Change the above program to display all of the 
possible values of X for CHR$(X). How can you 
find what the largest value of X is? Use the 
TRAP command somewhere in your program. 
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INFORMATION 

This section can be used if your Atari is 
connected to a printer. If you do not have a 
printer, the programs will cause an error. 

In addition to printing on the screen, your 
Atari can make what is called a hard copy or 
printout of your program. For example, to list 
a program on the printer, first make sure the 

printer is turned on, then type: 

*********************************************** 

I LIST "P" t 

* * 
*********************************************** 

The P stands for Printer. Try it! 

Sometimes it is easier to find mistakes in a 
program when you can see the entire listing 
at once, instead of just twenty-four lines as 
on the screen. 

Another command that is used with a line printer 
is the LPRINT command. Just like the PRINT 
statement prints on the screen, the LPRINT 
statement prints on paper. 
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ENTER/RUN/OBSERVE 


*********************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


5 A=5 

10 LPRINT "I AM PRINTING ON THE PRINTER,” 
20 PRINT "NOW I'M PRINTING ON THE SCREEN." 
30 PRINT A 
40 LPRINT A 
50 GOTO 10 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*********************************************** 


CHALLENGE 

Create a program that will produce this chart 
on a printer. 

############################################## 
# # 


# 


DATE 


# 


ITEM 


# 


COST 


# 


############################################## 


# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 


# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 


# 

# 

# 

# 

# 

# 

# 

# 

# 

# 


# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 


############################################## 
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REVIEW: Choose the command which 

will cause the function 
described below. 


COMMAND FUNCTION 



This command moves the cursor to 

any location (X,Y) on the screen 

(X=l TO 84, Y=1 TO 24). 


This command allows you to use 

numbers to represent actions or 

characters. 


This command lists a program on 

the printer. 


This command causes something to 

be printed on the printer. 


This command is used to direct 

the program to a specified line 

number if an error occurs. 
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CHAPTER 4; MOVING DATA AROUND 
INFORMATION 

The commands DATA and READ allow you to assign 
values to a large number of variables quickly. 

ENTER/RUN/OBSERVE 

********************************************* 

* 10 GR.0 * 

I 20 DATA 1,2,3,4 * 

I 30 READ A,B,C,D * 

* 40 PRINT I 

* 50 PRINT A;B;B;C;C;C;D;D;D;D | 

********************************************* 

Values in the DATA statement must be separated 
by commas. The same is true for the variables 
in the READ statement. 

The READ command uses the values in the DATA 
statement one by one. There must be a piece 
of DATA for each variable to be READ. 

CHANGE IT/RUN/OBSERVE 

DATA statements can be listed anywhere within 
a program. The computer will search the entire 
program for the next piece of DATA when it 
comes to a READ statement. 
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Delete line 20. 

****************** 
I 60 DATA 1,2,3,4 


* 


************** 


***************************** 

* 

* 

* 

* 

***************************** 


CHANGE IT/RUN/OBSERVE 

*********************************************** 

* 70 PRINTrPRINT A,B,C,D J 

* * 
*********************************************** 


CHANGE IT/RUN/OBSERVE 

********************** 

I 20 FOR X=1 TO 4 

* 30 READ A 
I 40 B=B+A 

* 50 NEXT X 

* 70 PRINT B 

* 

********************** 


************************ 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

************************ 


CHALLENGE 

This line of DATA represents five test scores. 

*********************************************** 

*100 DATA 98,75,82,93,95 t 

*********************************************** 

Create a program around it that will find the 

average score. 
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INFORMATION 

In a READ statement, use string variables for 
strings and regular variables for numbers. 

A READ command reads DATA values in the order 
they are listed in a program. The first DATA 
value is assigned to the first READ variable, 
the second DATA value to the second READ 
variable, and so on. 

ENTER/RUN/OBSERVE 


*********************************************** 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 

* 
* 
* 

*********************************************** 


* 

* 

* 

* 

* 

s 

* 

* 

* 

* 

* 

* 

* 

* 

* 

t 

4 

* 

* 

* 

* 

* 


10 GR.0;DIM X$(10) 

20 DATA ONE 

30 DATA TWO, THREE, FOUR 
40 FOR N=1 TO 6 
50 READ X$ 

60 POSITION 1,N:PRINT X$ 
70 NEXT N 
80 DATA FIVE, SIX 


CHANGE IT/RUN/OBSERVE 

Try this. Does it do what you would expect? 

*********************************************** 

* 60 POSITION 1,N:PRINT X$; * 

* * 
*********************************************** 
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CHALLENGE 

Predict what will be printed when the program 
listed below is RUN. Enter and RUN the pro¬ 
gram to see if you were right. 


****************************************** 

* 10 GR.0;DIM A$(10) :DIM B$(15) :DIM C$ (15) 

* 15 DIM D$(15);DIM E$(10):DIM F$(10) 

I 20 DATA ILLINOIS,1,2 

*30 READ A$ 

I 40 DATA NEW YORK CITY,CALIFORNIA 

* 50 DATA LOS ANGELES, 3 ,NEW YORK 

* 60 READ X,Y,B$,C$,D$,Z 

* 70 READ E$,F$ 

I 80 DATA CHICAGO 
I 90 PRINT:PRINT X;" ";B$;",";E$ 

*100 PRINT Y;" ";F$;",";A$ 

*110 PRINT Z;" ";D$;",";C$ 

***********:/lr********** ******************** 


**** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* *** 


CHALLENGE 

Create a program that will READ from DATA the 
number for a symbol followed by a word telling 
what the symbol is. For example, DATA 0, HEART. 
Then print out the symbol along with the 
descriptive word. 

Do this for ten symbols. 
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INFORMATION 

The command RESTORE makes the computer return 
to the first DATA value in the program. 


ENTER/RUN/OBSERVE 

********************************************* 

* 10 DATA 157,223,700 J 

I 20 READ A,B,C i 

* i 

* 30 READ D,E,F $ 

I 40 PRINT A,B,C,D,E,F * 

* * 

Notice the error message you get when you try 
to RUN this program? 


CHANGE IT/RUN/OBSERVE 

********************************************* 

I 25 RESTORE J 

* * 
********************************************* 


ENTER/RUN/OBSERVE 

********************************************* 

* 10 GR.0-.PRINT:DIM T$(20) * 

* 20 PRINT "HERE IS A LIST OF THE PEOPLE I * 

* CAN BEAT IN TENNISPRINT J 

I 30 DATA MY GRANDMOTHER,CHRIS EVERT-LLOYD * 

* 40 DATA TRACY AUSTIN,MARTINA NAVRATILOVA * 

^ 'ic 

* 45 DATA JOHN MCENROE,IVAN LENDL * 

* * 

* (program continued) J 
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50 FOR N=1 TO 6 
60 READ T$:PRINT T$ 
70 RESTORE 
80 NEXT N 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*********************************************** 


CHALLENGE 

Alter the above program so that it asks you to 
INPUT your name. IF the name you INPUT is 
BJORN BORG, then the program will PRINT all 
the names in lines 30, 40, and 45 in the above 
program. If the name you INPUT is JIMMY 
CONNORS, have it PRINT only the men's names. 
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INFORMATION 

READ and DATA can also be used with graphics. 


ENTER/RUN/OBSERVE 


*********************************************** 


*10 GRAPHICS 5 

* 20 FOR S=1 TO 10 
I 30 READ X,Y,C 

I 40 COLOR C 
I 50 PLOT X,Y 

* 60 NEXT S 

* 70 END 


* 80 DATA 2,0,1,1,1,1,2,1,2,3,1,1,0,2,1,2,2,2,* 

* 4 2 1 * 

* 

* 90 DATA 2,3,2,2,4,2,2,5,2 | 

* * 
*********************************************** 


CHANGE IT/RUN/OBSERVE 
Now add this. 


*********************************************** 

* 5 FOR T=1 TO 18 * 

* 50 PLOT X,Y+T I 

*65 RESTORE | 

I 67 NEXT T I 

* * 
*********************************************** 
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CHANGE IT/RUN/OBSERVE 
How about this! 

********************************************* 

* 50 PLOT X,Y+25-T * 

* * 
********************************************* 

Even this! 

********************************************* 

* 50 PLOT X+T, Y+25-T * 

* ^ 
********************************************* 

CHALLENGE 

Using DATA and READ, create a robot that will 
move across the screen. 
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INFORMATION 

DATA is also good with sound. 


ENTER/RUN/OBSERVE 


********************************************** 

* 10 GR.0 

I 15 TRAP 100 
I 20 READ F 
I 30 SOUND 0,F,10,10 
I 40 SOUND 1,F+26,10,8 
I 45 FOR T=1 TO 500;NEXT T 

* 50 GOTO 20 

* 

*100 PRINT "YOU'RE OUT OF DATA" 

|ll0 TRAP 50000 
*120 GOTO 15 

*200 DATA 230,204,182,162,144,128,114,108 

'Jc 

********************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 


CHANGE IT/RUN/OBSERVE 

*********************************************** 

*115 RESTORE J 

*********************************************** 


CHALLENGE 

Change the DATA line to produce a tune. 
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REVIEW: Choose the command which will 

cause the function described 
below. 


COMMAND/KEY FUNCTION 



This command is used to put lists 
of data into a program. 


This command reads the data values 

and assigns variable names to them. 


This command resets the READ com¬ 
mand to the first DATA statement 

in a program. 
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REFERENCE 


COMMAND/KEY FUNCTION 


CHR$(X) 

This command allows you to use 

numbers to represent actions or 

characters. 

DATA 

This command is used to put lists 

of data into a program. 

GOSUB 

This command sends the computer to 

the first line of a subroutine. 

The command must be followed by a 

line number. 

GR.6 

This command puts the computer in 
a high-resolution graphics mode. 

LIST "P" 

This command lists a program on 

the printer. 

LPRINT 

This command causes something to 

be printed on the printer. 

ON-GOSUB 

This will send the computer to 

one of several subroutines, depen¬ 
ding on the value of the expression 

in the command. 

ON-GOTO 

This command sends the computer to 

one of several line numbers, de¬ 
pending on the value of the 

expression in the command. 
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REFERENCE (continued) 


COMMAND/KEY FUNCTION 


OR 

This command is used with the IF- 

THEN statement to check for a 

variety of responses. 

POSITION X,Y 

This command moves the cursor to 

any location (X,Y) on the screen 

(X=l TO 84, Y=1 TO 24). 

READ 

This command reads the data values 

and assigns variable names to them. 

RESTORE 

This command resets the READ command 

to the first DATA statement in a 

program. 

RETURN 

Located at the end of a subroutine, 

this command sends the computer 

back to the program line following 

GOSUB. 

TRAP 

This command is used to direct the 

program to a specified line number 

if an error occurs. 
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CONGRATULATIONS!!! 

You have now finished the green instructional 
level of TLC FOR GROWING MINDS and have a good 
working vocabulary of BASIC commands. 

You are now ready to work the GREEN projects 
in the TLC Project Book, Volume 3 & 4. They 
will help you gain experience using the com¬ 
mands you have already learned. When you 
have finished the GREEN projects. Volume 5 
(BLUE) of TLC FOR GROWING MINDS will help you 
to continue learning. 
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